home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 326-350 / disk_339 / pcq / include / screen.i < prev    next >
Text File  |  1992-05-06  |  894b  |  50 lines
  1. {
  2.     Screen.i (of PCQ Pascal)
  3.  
  4.     This file just defines the screen record, but requires so
  5.     many other include files that I seperated it from Intuition.i
  6. }
  7.  
  8. {$I "Include/Graphics.i"}
  9. {$I "Include/Layers.i"}
  10. {$I "Include/View.i"}
  11. {$I "Include/Intuition.i"}
  12. {$I "Include/Text.i"}
  13.  
  14. Type
  15.     Screen = Record
  16.     NextScreen    : ^Screen;
  17.     FirstWindow    : WindowPtr;
  18.     LeftEdge,
  19.     TopEdge,
  20.     Width,
  21.     Height        : Short;
  22.     MouseY,
  23.     MouseX        : Short;
  24.     Flags        : Short;
  25.     Title        : String;
  26.     DefaultTitle    : String;
  27.     BarHeight,
  28.     BarVBorder,
  29.     BarHBorder,
  30.     MenuVBorder,
  31.     MenuHBorder    : Byte;
  32.     WBorTop,
  33.     WBorLeft,
  34.     WBorRight,
  35.     WBorBottom    : Byte;
  36.     Font        : TextAttrPtr;
  37.     SViewPort    : ViewPort;
  38.     SRastPort    : RastPort;
  39.     SBitMap        : BitMap;
  40.     LayerInfo    : Layer_Info;
  41.     FirstGadget    : Address;
  42.     DetailPen,
  43.     BlockPen    : Byte;
  44.     SaveColor0    : Short;
  45.     BarLayer    : Address;
  46.     ExtData        : Address;
  47.     UserData    : Address;
  48.     end;
  49.     ScreenPtr = ^Screen;
  50.